VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmConfig 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Konfigurasi"
   ClientHeight    =   6360
   ClientLeft      =   0
   ClientTop       =   -45
   ClientWidth     =   14400
   Icon            =   "FrmConfig.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6360
   ScaleWidth      =   14400
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   6375
      Index           =   3
      Left            =   0
      TabIndex        =   33
      Top             =   0
      Width           =   14415
      _ExtentX        =   25426
      _ExtentY        =   11245
      BackColor1      =   0
      BackColor2      =   0
      BackGradient    =   1
      Caption         =   "Konfigurasi"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   2565927
      TitleColor2     =   0
      TitleGradient   =   2
      TitleHeight     =   600
      BorderColor     =   49152
      BorderWidth     =   2
      Begin BLacKPeaRLOCX.ButtonNix cmdsaveall 
         Height          =   615
         Left            =   11280
         TabIndex        =   31
         Top             =   5400
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   1085
         BTYPE           =   5
         TX              =   "Simpan Semua"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmConfig.frx":B532
         PICN            =   "FrmConfig.frx":B54E
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdTutup 
         Height          =   255
         Left            =   13320
         TabIndex        =   32
         Top             =   120
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   450
         BTYPE           =   5
         TX              =   "X"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   255
         FCOLO           =   255
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmConfig.frx":D258
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
         Height          =   4455
         Index           =   2
         Left            =   11280
         TabIndex        =   51
         Top             =   720
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   7858
         BackColor1      =   4210752
         BackColor2      =   0
         Caption         =   "Happy Hours && Account"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   4210752
         TitleColor2     =   0
         TitleGradient   =   2
         TitleHeight     =   400
         BorderColor     =   49152
         BorderWidth     =   2
         Begin BLacKPeaRLOCX.ButtonNix CmdUpdateDisc 
            Height          =   375
            Left            =   1200
            TabIndex        =   76
            Top             =   960
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Simpan"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D274
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.TextBox txthrs 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            MaxLength       =   2
            TabIndex        =   73
            Top             =   1005
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.TextBox txtmnt 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1830
            MaxLength       =   2
            TabIndex        =   72
            Top             =   1005
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.TextBox txthrs1 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            MaxLength       =   2
            TabIndex        =   71
            Top             =   1485
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.TextBox txtmnt1 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1830
            MaxLength       =   2
            TabIndex        =   70
            Top             =   1485
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.TextBox Txtdisc 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            TabIndex        =   30
            Top             =   525
            Width           =   495
         End
         Begin VB.Shape Shape22 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   960
            Visible         =   0   'False
            Width           =   450
         End
         Begin VB.Shape Shape21 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1800
            Shape           =   4  'Rounded Rectangle
            Top             =   960
            Visible         =   0   'False
            Width           =   450
         End
         Begin VB.Shape Shape20 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   1440
            Visible         =   0   'False
            Width           =   450
         End
         Begin VB.Shape Shape19 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1800
            Shape           =   4  'Rounded Rectangle
            Top             =   1440
            Visible         =   0   'False
            Width           =   450
         End
         Begin VB.Label Label18 
            BackStyle       =   0  'Transparent
            Caption         =   ":"
            ForeColor       =   &H0000FF00&
            Height          =   255
            Left            =   1680
            TabIndex        =   75
            Top             =   960
            Visible         =   0   'False
            Width           =   375
         End
         Begin VB.Label Label15 
            BackStyle       =   0  'Transparent
            Caption         =   ":"
            ForeColor       =   &H0000FF00&
            Height          =   255
            Left            =   1680
            TabIndex        =   74
            Top             =   1440
            Visible         =   0   'False
            Width           =   615
         End
         Begin VB.Label Label9 
            BackStyle       =   0  'Transparent
            Caption         =   "Mulai Jam"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   68
            Top             =   960
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.Label Label10 
            BackStyle       =   0  'Transparent
            Caption         =   "Selesai Jam"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   67
            Top             =   1440
            Visible         =   0   'False
            Width           =   1215
         End
         Begin VB.Shape Shape18 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   480
            Width           =   570
         End
         Begin VB.Label Label11 
            BackStyle       =   0  'Transparent
            Caption         =   "%"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   1800
            TabIndex        =   53
            Top             =   480
            Width           =   255
         End
         Begin VB.Label Label8 
            BackStyle       =   0  'Transparent
            Caption         =   "Happy Hour"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   52
            Top             =   480
            Width           =   975
         End
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
         Height          =   5295
         Index           =   1
         Left            =   6360
         TabIndex        =   39
         Top             =   720
         Width           =   4815
         _ExtentX        =   8493
         _ExtentY        =   9340
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   "Setting Update waktu Client dan Harga Awal"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   400
         BorderColor     =   49152
         BorderWidth     =   2
         Begin MSMask.MaskEdBox txtjedmen 
            Height          =   255
            Left            =   1560
            TabIndex        =   22
            Top             =   3480
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   450
            _Version        =   393216
            Appearance      =   0
            BackColor       =   4210752
            ForeColor       =   49152
            MaxLength       =   8
            Mask            =   "##:##:##"
            PromptChar      =   "_"
         End
         Begin VB.TextBox TxtDepositMin 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   21
            Top             =   3045
            Width           =   1215
         End
         Begin VB.TextBox txtketik 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   20
            Top             =   2565
            Width           =   1215
         End
         Begin VB.TextBox txtgame 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   19
            Top             =   2085
            Width           =   1215
         End
         Begin VB.TextBox Txtmember 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   18
            Top             =   1605
            Width           =   1215
         End
         Begin VB.TextBox txtpelajar 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   17
            Top             =   1125
            Width           =   1215
         End
         Begin VB.TextBox Txtpersonal 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   16
            Top             =   645
            Width           =   1215
         End
         Begin VB.ComboBox txtintervalpel 
            BackColor       =   &H00000000&
            Enabled         =   0   'False
            ForeColor       =   &H0000C000&
            Height          =   315
            Left            =   3120
            TabIndex        =   24
            Top             =   1080
            Width           =   735
         End
         Begin VB.ComboBox TxtIntervalmem 
            BackColor       =   &H00000000&
            Enabled         =   0   'False
            ForeColor       =   &H0000C000&
            Height          =   315
            Left            =   3120
            TabIndex        =   25
            Top             =   1560
            Width           =   735
         End
         Begin VB.ComboBox txtintervalgam 
            BackColor       =   &H00000000&
            Enabled         =   0   'False
            ForeColor       =   &H0000C000&
            Height          =   315
            Left            =   3120
            TabIndex        =   26
            Top             =   2040
            Width           =   735
         End
         Begin VB.ComboBox TxtIntervalmen 
            BackColor       =   &H00000000&
            Enabled         =   0   'False
            ForeColor       =   &H0000C000&
            Height          =   315
            Left            =   3120
            TabIndex        =   27
            Top             =   2520
            Width           =   735
         End
         Begin VB.ComboBox TxtInterval 
            BackColor       =   &H00000000&
            Enabled         =   0   'False
            ForeColor       =   &H0000C000&
            Height          =   315
            Left            =   3120
            TabIndex        =   23
            Top             =   600
            Width           =   735
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdupdateHarga 
            Height          =   495
            Left            =   1200
            TabIndex        =   28
            Top             =   4440
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan"
            ENAB            =   0   'False
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D290
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix cmdSet 
            Height          =   495
            Left            =   2760
            TabIndex        =   29
            Top             =   4440
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Set"
            ENAB            =   0   'False
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D2AC
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Label Label19 
            BackStyle       =   0  'Transparent
            Caption         =   "Jeda Waktu Client"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   69
            Top             =   3480
            Width           =   1575
         End
         Begin VB.Shape Shape17 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   3000
            Width           =   1290
         End
         Begin VB.Shape Shape16 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   2520
            Width           =   1290
         End
         Begin VB.Shape Shape15 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   2040
            Width           =   1290
         End
         Begin VB.Shape Shape14 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   1560
            Width           =   1290
         End
         Begin VB.Shape Shape13 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   1080
            Width           =   1290
         End
         Begin VB.Shape Shape12 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   600
            Width           =   1290
         End
         Begin VB.Label Label29 
            BackStyle       =   0  'Transparent
            Caption         =   "Pelajar"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   50
            Top             =   1080
            Width           =   1095
         End
         Begin VB.Label Label28 
            BackStyle       =   0  'Transparent
            Caption         =   "Menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3960
            TabIndex        =   49
            Top             =   1080
            Width           =   495
         End
         Begin VB.Label Label27 
            BackStyle       =   0  'Transparent
            Caption         =   "Menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3960
            TabIndex        =   48
            Top             =   2520
            Width           =   495
         End
         Begin VB.Label Label26 
            BackStyle       =   0  'Transparent
            Caption         =   "Menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3960
            TabIndex        =   47
            Top             =   2040
            Width           =   495
         End
         Begin VB.Label Label12 
            BackStyle       =   0  'Transparent
            Caption         =   "Menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3960
            TabIndex        =   46
            Top             =   1560
            Width           =   495
         End
         Begin VB.Label Label14 
            BackStyle       =   0  'Transparent
            Caption         =   "Saldo Minimal"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   375
            Left            =   120
            TabIndex        =   45
            Top             =   3000
            Width           =   1215
         End
         Begin VB.Label Label13 
            BackStyle       =   0  'Transparent
            Caption         =   "Menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3960
            TabIndex        =   44
            Top             =   600
            Width           =   495
         End
         Begin VB.Label Label17 
            BackStyle       =   0  'Transparent
            Caption         =   "Mengetik"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   43
            Top             =   2520
            Width           =   1095
         End
         Begin VB.Label Label16 
            BackStyle       =   0  'Transparent
            Caption         =   "Game"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   42
            Top             =   2040
            Width           =   1095
         End
         Begin VB.Label Label7 
            BackStyle       =   0  'Transparent
            Caption         =   "Member"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   41
            Top             =   1560
            Width           =   1095
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "Personal"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   40
            Top             =   600
            Width           =   1095
         End
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
         Height          =   5295
         Index           =   0
         Left            =   240
         TabIndex        =   34
         Top             =   720
         Width           =   6015
         _ExtentX        =   10610
         _ExtentY        =   9340
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   "Setting Nama Warnet dan Biaya Perjam"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   400
         BorderColor     =   49152
         BorderWidth     =   2
         Begin VB.TextBox ketik 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   4350
            TabIndex        =   14
            Top             =   4365
            Width           =   1215
         End
         Begin VB.TextBox game 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   4350
            TabIndex        =   13
            Top             =   3885
            Width           =   1215
         End
         Begin VB.TextBox member 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   12
            Top             =   4845
            Width           =   1215
         End
         Begin VB.TextBox pelajar 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   11
            Top             =   4365
            Width           =   1215
         End
         Begin VB.TextBox Txtharga_Personal 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   10
            Top             =   3885
            Width           =   1215
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdUpdateUmum 
            Height          =   495
            Left            =   4080
            TabIndex        =   15
            Top             =   2400
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D2C8
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.TextBox Txtcurrency 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   5
            Top             =   2685
            Width           =   735
         End
         Begin VB.TextBox Txtport 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   4
            Top             =   2205
            Width           =   1095
         End
         Begin VB.TextBox txtslogan 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   3
            Top             =   1725
            Width           =   3735
         End
         Begin VB.TextBox Txtalamat2 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   2
            Top             =   1365
            Width           =   3015
         End
         Begin VB.TextBox Txtalamat1 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   1
            Top             =   1005
            Width           =   3855
         End
         Begin VB.TextBox Txtnama_warnet 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1590
            TabIndex        =   0
            Top             =   645
            Width           =   3855
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdHelp2 
            Height          =   255
            Left            =   5160
            TabIndex        =   66
            Top             =   3480
            Width           =   375
            _ExtentX        =   661
            _ExtentY        =   450
            BTYPE           =   5
            TX              =   "?"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   16777215
            FCOLO           =   16777215
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D2E4
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.OptionButton opoto 
            BackColor       =   &H00303030&
            ForeColor       =   &H000000C0&
            Height          =   255
            Left            =   4320
            TabIndex        =   9
            Top             =   3480
            Width           =   255
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdHelp1 
            Height          =   255
            Left            =   3840
            TabIndex        =   63
            Top             =   3480
            Width           =   375
            _ExtentX        =   661
            _ExtentY        =   450
            BTYPE           =   5
            TX              =   "?"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   16777215
            FCOLO           =   16777215
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D300
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix cmdHelp 
            Height          =   255
            Left            =   2280
            TabIndex        =   62
            Top             =   3480
            Width           =   375
            _ExtentX        =   661
            _ExtentY        =   450
            BTYPE           =   5
            TX              =   "?"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   16777215
            FCOLO           =   16777215
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmConfig.frx":D31C
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.CheckBox chkactive 
            BackColor       =   &H00404040&
            Height          =   255
            Left            =   1560
            TabIndex        =   6
            Top             =   3120
            Width           =   200
         End
         Begin VB.OptionButton chkperjam 
            BackColor       =   &H00303030&
            ForeColor       =   &H000000C0&
            Height          =   255
            Left            =   2760
            TabIndex        =   8
            Top             =   3480
            Width           =   255
         End
         Begin VB.OptionButton chkawal 
            BackColor       =   &H00303030&
            ForeColor       =   &H000000C0&
            Height          =   255
            Left            =   120
            TabIndex        =   7
            Top             =   3480
            Value           =   -1  'True
            Width           =   255
         End
         Begin VB.Shape Shape11 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   4320
            Shape           =   4  'Rounded Rectangle
            Top             =   4320
            Width           =   1290
         End
         Begin VB.Shape Shape10 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   4320
            Shape           =   4  'Rounded Rectangle
            Top             =   3840
            Width           =   1290
         End
         Begin VB.Shape Shape9 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   4800
            Width           =   1290
         End
         Begin VB.Shape Shape8 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   4320
            Width           =   1290
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   3840
            Width           =   1290
         End
         Begin VB.Shape Shape7 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   2640
            Width           =   810
         End
         Begin VB.Shape Shape6 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   2160
            Width           =   1170
         End
         Begin VB.Shape Shape5 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   1680
            Width           =   3810
         End
         Begin VB.Shape Shape4 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   1320
            Width           =   3090
         End
         Begin VB.Shape Shape3 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   960
            Width           =   3930
         End
         Begin VB.Shape Shape2 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1560
            Shape           =   4  'Rounded Rectangle
            Top             =   600
            Width           =   3930
         End
         Begin VB.Label sds 
            BackStyle       =   0  'Transparent
            Caption         =   "Auto"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   4560
            TabIndex        =   65
            Top             =   3480
            Width           =   735
         End
         Begin VB.Label Label30 
            BackStyle       =   0  'Transparent
            Caption         =   "Slogan"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   64
            Top             =   1680
            Width           =   1455
         End
         Begin VB.Label Label6 
            BackStyle       =   0  'Transparent
            Caption         =   "Kunci Billing Setelah Pemakaian"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   1800
            TabIndex        =   61
            Top             =   3120
            Width           =   2535
         End
         Begin VB.Label lblpersonal 
            BackStyle       =   0  'Transparent
            Caption         =   "Personal/PayFirst"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   60
            Top             =   3840
            Width           =   1575
         End
         Begin VB.Label lblketik 
            BackStyle       =   0  'Transparent
            Caption         =   "Mengetik"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   2880
            TabIndex        =   59
            Top             =   4320
            Width           =   1335
         End
         Begin VB.Label lblgame 
            BackStyle       =   0  'Transparent
            Caption         =   "Game"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   2880
            TabIndex        =   58
            Top             =   3840
            Width           =   1455
         End
         Begin VB.Label lblmember 
            BackStyle       =   0  'Transparent
            Caption         =   "Member"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   57
            Top             =   4800
            Width           =   1455
         End
         Begin VB.Label lblpelajar 
            BackStyle       =   0  'Transparent
            Caption         =   "Pelajar"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   56
            Top             =   4320
            Width           =   1575
         End
         Begin VB.Label Label22 
            BackStyle       =   0  'Transparent
            Caption         =   "Minimal harga /30 menit"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   360
            TabIndex        =   55
            Top             =   3480
            Width           =   2175
         End
         Begin VB.Label Label20 
            BackStyle       =   0  'Transparent
            Caption         =   "Advance"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   3000
            TabIndex        =   54
            Top             =   3480
            Width           =   735
         End
         Begin VB.Label Label5 
            BackStyle       =   0  'Transparent
            Caption         =   "Currency"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   38
            Top             =   2640
            Width           =   1455
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Server Port"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   37
            Top             =   2160
            Width           =   1455
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "Alamat"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   36
            Top             =   1080
            Width           =   1455
         End
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "Nama Warnet"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   35
            Top             =   600
            Width           =   1455
         End
      End
   End
End
Attribute VB_Name = "FrmConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub chkawal_Click()
Txtpersonal.Enabled = False
txtpelajar.Enabled = False
Txtmember.Enabled = False
txtgame.Enabled = False
txtketik.Enabled = False
TxtInterval.Text = 15
txtintervalpel.Text = 15
TxtIntervalmem.Text = 15
txtintervalgam.Text = 15
TxtIntervalmen.Text = 15
TxtInterval.Enabled = False
txtintervalpel.Enabled = False
TxtIntervalmem.Enabled = False
txtintervalgam.Enabled = False
TxtIntervalmen.Enabled = False
lblpersonal.Caption = "Personal /30 Menit"
lblpelajar.Caption = "Pelajar /30 Menit"
lblmember.Caption = "Member /30 Menit"
lblgame.Caption = "Game /30 Menit"
lblketik.Caption = "Ketik /30 Menit"
BLacKFrame1(1).Caption = "Setting Update Client"
CmdupdateHarga.Enabled = True
cmdSet.Enabled = False

End Sub

Private Sub chkawal_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
chkawal.ToolTipText = "Settingan ini tidak berdasarkan harga perjam, tapi berdasarkan harga Awal dan update permenitnya. Jika anda ingin memakai, harga perjam. klik pilihan pakai harga perjam disamping"
End Sub

Private Sub chkperjam_Click()
bersih
For i = 1 To 60
TxtInterval.AddItem i
txtintervalpel.AddItem i
txtintervalgam.AddItem i
TxtIntervalmen.AddItem i
TxtIntervalmem.AddItem i
Next i

Txtpersonal.Enabled = True
txtpelajar.Enabled = True
Txtmember.Enabled = True
txtgame.Enabled = True
txtketik.Enabled = True
TxtInterval.Enabled = True
txtintervalpel.Enabled = True
TxtIntervalmem.Enabled = True
txtintervalgam.Enabled = True
TxtIntervalmen.Enabled = True
TxtInterval.Text = 5
txtintervalpel.Text = 5
TxtIntervalmem.Text = 5
txtintervalgam.Text = 5
TxtIntervalmen.Text = 5


lblpersonal.Caption = "Awal Personal"
lblpelajar.Caption = "Awal Pelajar"
lblmember.Caption = "Awal Member"
lblgame.Caption = "Awal Game"
lblketik.Caption = "Awal Ketik"
BLacKFrame1(1).Caption = "Setting Update Harga"
CmdupdateHarga.Enabled = True
cmdSet.Enabled = False

End Sub

Private Sub cmdHelp_Click()
MsgBox "Buatlah pada text harga setengah dari biaya perjamnya " & vbCrLf _
& "contoh harga 4000 perjam, maka di text harga buatlah 2000 perjam" & vbCrLf _
& "Kemudian di tabel Setting Update Client, buatlah harga seperempat dari" & vbCrLf _
& "harga perjam anda.", vbInformation, "Configuration Help!"
End Sub

Private Sub CmdHelp1_Click()
MsgBox "Konfigurasi yang berfungsi untuk menentukan pilihan biaya sendiri", vbInformation, "Configuration Help!"

End Sub


Private Sub CmdHelp2_Click()
MsgBox "Masukkan harga perjam di text harga, kemudian di tabel Setting Update Client" & vbCrLf _
& " pilih Update pertambahan biayanya, jika sudah Klik Button Set dan diiringi dengan mengklik simpan.", vbInformation, "Configuration Help!"

End Sub

Private Sub cmdsaveall_Click()
CmdUpdateUmum_Click
CmdupdateHarga_Click
CmdUpdateDisc_Click
End Sub

Private Sub CmdSet_Click()
On Error GoTo hell
'untuk personal
If TxtInterval.Text = "5" Then
Txtpersonal.Text = Txtharga_Personal.Text / 12
End If
If TxtInterval.Text = "10" Then
Txtpersonal.Text = Txtharga_Personal.Text / 6
End If
If TxtInterval.Text = "15" Then
Txtpersonal.Text = Txtharga_Personal.Text / 4
End If
If TxtInterval.Text = "20" Then
Txtpersonal.Text = Txtharga_Personal.Text / 3
End If
If TxtInterval.Text = "25" Then
Txtpersonal.Text = Txtharga_Personal.Text / 2.4
End If
If TxtInterval.Text = "30" Then
Txtpersonal.Text = Txtharga_Personal.Text / 2
End If
If TxtInterval.Text = "35" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1.71
End If
If TxtInterval.Text = "40" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1.5
End If
If TxtInterval.Text = "45" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1.33
End If
If TxtInterval.Text = "50" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1.2
End If
If TxtInterval.Text = "55" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1.09
End If
If TxtInterval.Text = "60" Then
Txtpersonal.Text = Txtharga_Personal.Text / 1
End If

'untuk game
If txtintervalgam.Text = "5" Then
txtgame.Text = game.Text / 12
End If
If txtintervalgam.Text = "10" Then
txtgame.Text = game.Text / 6
End If
If txtintervalgam.Text = "15" Then
txtgame.Text = game.Text / 4
End If
If txtintervalgam.Text = "20" Then
txtgame.Text = game.Text / 3
End If
If txtintervalgam.Text = "25" Then
txtgame.Text = game.Text / 2.4
End If
If txtintervalgam.Text = "30" Then
txtgame.Text = game.Text / 2
End If
If txtintervalgam.Text = "35" Then
txtgame.Text = game.Text / 1.71
End If
If txtintervalgam.Text = "40" Then
txtgame.Text = game.Text / 1.5
End If
If txtintervalgam.Text = "45" Then
txtgame.Text = game.Text / 1.33
End If
If txtintervalgam.Text = "50" Then
txtgame.Text = game.Text / 1.2
End If
If txtintervalgam.Text = "55" Then
txtgame.Text = game.Text / 1.09
End If
If txtintervalgam.Text = "60" Then
txtgame.Text = game.Text / 1
End If

'untuk member
If TxtIntervalmem.Text = "5" Then
Txtmember.Text = member.Text / 12
End If
If TxtIntervalmem.Text = "10" Then
Txtmember.Text = member.Text / 6
End If
If TxtIntervalmem.Text = "15" Then
Txtmember.Text = member.Text / 4
End If
If TxtIntervalmem.Text = "20" Then
Txtmember.Text = member.Text / 3
End If
If TxtIntervalmem.Text = "25" Then
Txtmember.Text = member.Text / 2.4
End If
If TxtIntervalmem.Text = "30" Then
Txtmember.Text = member.Text / 2
End If
If TxtIntervalmem.Text = "35" Then
Txtmember.Text = member.Text / 1.71
End If
If TxtIntervalmem.Text = "40" Then
Txtmember.Text = member.Text / 1.5
End If
If TxtIntervalmem.Text = "45" Then
Txtmember.Text = member.Text / 1.33
End If
If TxtIntervalmem.Text = "50" Then
Txtmember.Text = member.Text / 1.2
End If
If TxtIntervalmem.Text = "55" Then
Txtmember.Text = member.Text / 1.09
End If
If TxtIntervalmem.Text = "60" Then
Txtmember.Text = member.Text / 1
End If

'untuk mengetik
If TxtIntervalmen.Text = "5" Then
txtketik.Text = Txtharga_Personal.Text / 12
End If
If TxtIntervalmen.Text = "10" Then
txtketik.Text = ketik.Text / 6
End If
If TxtIntervalmen.Text = "15" Then
txtketik.Text = ketik.Text / 4
End If
If TxtIntervalmen.Text = "20" Then
txtketik.Text = ketik.Text / 3
End If
If TxtIntervalmen.Text = "25" Then
txtketik.Text = ketik.Text / 2.4
End If
If TxtIntervalmen.Text = "30" Then
txtketik.Text = ketik.Text / 2
End If
If TxtIntervalmen.Text = "35" Then
txtketik.Text = ketik.Text / 1.71
End If
If TxtIntervalmen.Text = "40" Then
txtketik.Text = ketik.Text / 1.5
End If
If TxtIntervalmen.Text = "45" Then
txtketik.Text = ketik.Text / 1.33
End If
If TxtIntervalmen.Text = "50" Then
txtketik.Text = ketik.Text / 1.2
End If
If TxtIntervalmen.Text = "55" Then
txtketik.Text = ketik.Text / 1.09
End If
If TxtIntervalmen.Text = "60" Then
txttxtketik.Text = ketik.Text / 1
End If

'untuk pelajar
If TxtIntervalmen.Text = "5" Then
txtketik.Text = Txtharga_Personal.Text / 12
End If
If TxtIntervalmen.Text = "10" Then
txtketik.Text = ketik.Text / 6
End If
If TxtIntervalmen.Text = "15" Then
txtketik.Text = ketik.Text / 4
End If
If TxtIntervalmen.Text = "20" Then
txtketik.Text = ketik.Text / 3
End If
If TxtIntervalmen.Text = "25" Then
txtketik.Text = ketik.Text / 2.4
End If
If TxtIntervalmen.Text = "30" Then
txtketik.Text = ketik.Text / 2
End If
If TxtIntervalmen.Text = "35" Then
txtketik.Text = ketik.Text / 1.71
End If
If TxtIntervalmen.Text = "40" Then
txtketik.Text = ketik.Text / 1.5
End If
If TxtIntervalmen.Text = "45" Then
txtketik.Text = ketik.Text / 1.33
End If
If TxtIntervalmen.Text = "50" Then
txtketik.Text = ketik.Text / 1.2
End If
If TxtIntervalmen.Text = "55" Then
txtketik.Text = ketik.Text / 1.09
End If
If TxtIntervalmen.Text = "60" Then
txttxtketik.Text = ketik.Text / 1
End If

'untuk pelajar
If txtintervalpel.Text = "5" Then
txtpelajar.Text = Txtharga_Personal.Text / 12
End If
If txtintervalpel.Text = "10" Then
txtpelajar.Text = pelajar.Text / 6
End If
If txtintervalpel.Text = "15" Then
txtpelajar.Text = pelajar.Text / 4
End If
If txtintervalpel.Text = "20" Then
txtpelajar.Text = pelajar.Text / 3
End If
If txtintervalpel.Text = "25" Then
txtpelajar.Text = pelajar.Text / 2.4
End If
If txtintervalpel.Text = "30" Then
txtpelajar.Text = pelajar.Text / 2
End If
If txtintervalpel.Text = "35" Then
txtpelajar.Text = pelajar.Text / 1.71
End If
If txtintervalpel.Text = "40" Then
txtpelajar.Text = pelajar.Text / 1.5
End If
If txtintervalpel.Text = "45" Then
txtpelajar.Text = pelajar.Text / 1.33
End If
If txtintervalpel.Text = "50" Then
txtpelajar.Text = pelajar.Text / 1.2
End If
If txtintervalpel.Text = "55" Then
txtpelajar.Text = pelajar.Text / 1.09
End If
If txtintervalpel.Text = "60" Then
txtpelajar.Text = pelajar.Text / 1
End If
 CmdupdateHarga.Enabled = True
IfNoErr:
Exit Sub
hell:
' MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "cmdSet_Click", Me.Name
Resume IfNoErr
End Sub

Private Sub CmdTutup_Click()
Unload Me
End Sub
Private Sub CekSetingUmum()
On Error GoTo hell
    rec.Open "alamat", conn, , adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        Txtnama_warnet.Text = rec(0)
        Txtalamat1.Text = rec(1)
        Txtalamat2.Text = rec(2)
        txtport.Text = rec(3)
        Txtcurrency.Text = rec(4)
        Txtharga_Personal.Text = rec(5)
        pelajar.Text = rec(6)
        member.Text = rec(7)
        game.Text = rec(8)
        ketik.Text = rec(9)
        If rec(10) = "30 Menit" Then
        chkawal.value = True
        End If
        If rec(10) = "Advance" Then
        chkperjam.value = True
        End If
        If rec(10) = "Auto" Then
        opoto.value = True
        End If
        chkactive.value = rec(11)
        txtslogan.Text = rec(12)

    Else
        Txtnama_warnet.Text = "BLacK PeaRL Internet Cafe"
        Txtalamat1.Text = "Jl. Cyber World Wide Web"
        Txtalamat2.Text = "Indonesian - Asia"
        txtport.Text = "2807"
        Txtcurrency.Text = "Rp."
        Txtharga_Personal.Text = 2000
        pelajar.Text = 1500
        member.Text = 1500
        game.Text = 2000
        ketik.Text = 1000
        chkawal.value = True
        txtslogan.Text = "Freedom is our Choice"
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "CekSetingUmum", Me.Name
Resume IfNoErr

End Sub

Private Sub CmdUpdateDisc_Click()
If Txtdisc.Text = 0 Then
MsgBox "Restart Billing untuk mendeactivasi happy hour.", vbInformation, "Restart Billing"
Else
MsgBox "Restart Billing untuk mengaktivasi happy hour.", vbInformation, "Restart Billing"
End If
    UpdateSetingDiscount
End Sub

Private Sub CmdupdateHarga_Click()
    UpdateSetingHarga
End Sub


Private Sub CmdUpdateUmum_Click()
    UpdateSetingUmum
End Sub

Private Sub UpdateSetingUmum()
On Error GoTo hell
    rec.Open "alamat", conn, , adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        rec(0) = Txtnama_warnet.Text
        rec(1) = Txtalamat1.Text
        rec(2) = Txtalamat2.Text
        rec(3) = Val(txtport.Text)
        rec(4) = Txtcurrency.Text
        rec(5) = Val(Txtharga_Personal.Text)
        rec(6) = Val(pelajar.Text)
        rec(7) = Val(member.Text)
        rec(8) = Val(game.Text)
        rec(9) = Val(ketik.Text)
        If chkawal.value = True Then
        rec(10) = "30 Menit"
        End If
        If chkperjam.value = True Then
        rec(10) = "Advance"
        End If
        If opoto.value = True Then
        rec(10) = "Auto"
        End If
        
        rec(11) = chkactive.value
        rec(12) = txtslogan.Text
        rec.Update
    Else
        rec.AddNew
        rec(0) = Txtnama_warnet.Text
        rec(1) = Txtalamat1.Text
        rec(2) = Txtalamat2.Text
        rec(3) = Val(txtport.Text)
        rec(4) = Txtcurrency.Text
        rec(5) = Val(Txtharga_Personal.Text)
        rec(6) = Val(pelajar.Text)
        rec(7) = Val(member.Text)
        rec(8) = Val(game.Text)
        rec(9) = Val(ketik.Text)
        If chkawal.value = True Then
        rec(10) = "30 Menit"
        End If
        If chkperjam.value = True Then
        rec(10) = "Advance"
        End If
        If opoto.value = True Then
        rec(10) = "Auto"
        End If
        
        rec(11) = chkactive.value
        rec(12) = txtslogan.Text
        rec.Update
    End If
    rec.Close
    MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "UpdateSetingUmum", Me.Name
Resume IfNoErr
End Sub
Private Sub CekSetingHarga()
On Error GoTo hell
    rec.Open "globset", conn, , adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        Txtpersonal.Text = rec(1)
        txtpelajar.Text = rec(2)
        Txtmember.Text = rec(3)
        txtgame = rec(4)
        txtketik = rec(5)
        TxtInterval.Text = rec(6)
        txtintervalpel.Text = rec(7)
        TxtIntervalmem.Text = rec(8)
        txtintervalgam.Text = rec(9)
        TxtIntervalmen.Text = rec(10)
        TxtDepositMin.Text = rec(11)
        txtjedmen.Text = rec(12)
    Else
        Txtpersonal.Text = 1000
        txtpelajar.Text = 750
        Txtmember.Text = 750
        txtgame.Text = 1000
        txtketik.Text = 500
        TxtInterval.Text = 15
        txtintervalpel.Text = 15
        TxtIntervalmem.Text = 15
        txtintervalgam.Text = 15
        TxtIntervalmen.Text = 15
        TxtDepositMin.Text = 2000
        txtjedmen.Text = "00:00:00"
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "CekSetingHarga", Me.Name
Resume IfNoErr
End Sub
Private Sub UpdateSetingHarga()
'On Error GoTo hell
 If Txtpersonal.Text <= 0 Or txtpelajar.Text <= 0 Or Txtmember.Text <= 0 Or txtgame <= 0 Or txtketik.Text <= 0 Or TxtInterval.Text <= 0 Or txtintervalpel.Text <= 0 Or TxtIntervalmem.Text <= 0 Or txtintervalgam.Text <= 0 Or TxtIntervalmen.Text <= 0 Or Txtpersonal.Text = vbNullString Or txtpelajar.Text = vbNullString Or Txtmember.Text = vbNullString Or txtgame = vbNullString Or txtketik.Text = vbNullString Or TxtInterval.Text = vbNullString Or txtintervalpel.Text = vbNullString Or TxtIntervalmem.Text = vbNullString Or txtintervalgam.Text = vbNullString Or TxtIntervalmen.Text = vbNullString Then
 MsgBox "Harga tidak boleh Kecil dari 0.", vbInformation, "Blank"
 Exit Sub
 Else
    rec.Open "globset", conn, , adLockOptimistic
   
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        rec(0) = 0
        rec(1) = Val(Txtpersonal.Text)
        rec(2) = Val(txtpelajar.Text)
        rec(3) = Val(Txtmember.Text)
        rec(4) = Val(txtgame.Text)
        rec(5) = Val(txtketik.Text)
        rec(6) = Val(TxtInterval.Text)
        rec(7) = Val(txtintervalpel.Text)
        rec(8) = Val(TxtIntervalmem.Text)
        rec(9) = Val(txtintervalgam.Text)
        rec(10) = Val(TxtIntervalmen.Text)
        rec(11) = Val(TxtDepositMin.Text)
        rec(12) = txtjedmen.Text
        rec.Update
         rec.Close
         MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
    Else
        rec.AddNew
        rec(0) = 0
        rec(1) = Val(Txtpersonal.Text)
        rec(2) = Val(txtpelajar.Text)
        rec(3) = Val(Txtmember.Text)
        rec(4) = Val(txtgame.Text)
        rec(5) = Val(txtketik.Text)
        rec(6) = Val(TxtInterval.Text)
        rec(7) = Val(txtintervalpel.Text)
        rec(8) = Val(TxtIntervalmem.Text)
        rec(9) = Val(txtintervalgam.Text)
        rec(10) = Val(TxtIntervalmen.Text)
        rec(11) = Val(TxtDepositMin.Text)
        rec(12) = txtjedmen.Text
        rec.Update
         rec.Close
         MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
    End If
   
    End If
   
'IfNoErr:
'Exit Sub
'hell:
' TulisError Err.Description, Err.Number, "UpdateSetingHarga", Me.Name
'Resume IfNoErr
End Sub
Private Sub CekSetingDiscount()
On Error GoTo hell
    rec.Open "happyhours", conn, , adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        Txtdisc.Text = rec(0)
        txthrs.Text = Left(rec(1), 2)
        txtmnt.Text = Right(rec(1), 2)
        txthrs1.Text = Left(rec(2), 2)
        txtmnt1.Text = Right(rec(2), 2)
    Else
        Txtdisc.Text = 0
        txthrs.Text = "23"
        txtmnt.Text = "00"
        txthrs1.Text = "05"
        txtmnt1.Text = "00"
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "CekSetingDiscount", Me.Name
Resume IfNoErr
End Sub
Private Sub UpdateSetingDiscount()
On Error GoTo hell
    rec.Open "happyhours", conn, , adLockOptimistic
    If Not rec.RecordCount = 0 Then
        rec.MoveFirst
        rec(0) = Val(Txtdisc.Text)
        rec(1) = txthrs.Text & txtmnt.Text
        rec(2) = txthrs1.Text & txtmnt1.Text
        rec.Update
    Else
        rec.AddNew
        rec(0) = Val(Txtdisc.Text)
        rec(1) = txthrs.Text & txtmnt.Text
        rec(2) = txthrs1.Text & txtmnt1.Text
        rec.Update
    End If
    rec.Close
    MsgBox "Setting telah berhasil disimpan", vbInformation, "Konfigurasi"
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "UpdateSetingDiscount", Me.Name
Resume IfNoErr

End Sub

Private Sub Form_Load()
On Error GoTo hell
    CekSetingUmum
    CekSetingHarga
    CekSetingDiscount
    
    
    StyleS
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "Form_Load", Me.Name
Resume IfNoErr
End Sub

Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text


    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub

Private Sub game_Change()
If chkawal.value = True Then
txtgame.Text = Val(game.Text) / 2
End If
End Sub

Private Sub game_GotFocus()
game.Backcolor = &H0&
game.Forecolor = vbWhite
End Sub

Private Sub game_LostFocus()
game.Backcolor = &H404040
game.Forecolor = &HC000&
End Sub


Private Sub ketik_Change()
If chkawal.value = True Then
txtketik.Text = Val(ketik.Text) / 2
End If
End Sub

Private Sub ketik_GotFocus()
ketik.Backcolor = &H0&
ketik.Forecolor = vbWhite
End Sub

Private Sub ketik_LostFocus()
ketik.Backcolor = &H404040
ketik.Forecolor = &HC000&
End Sub

Private Sub member_Change()
If chkawal.value = True Then
Txtmember.Text = Val(member.Text) / 2
End If
End Sub

Private Sub member_GotFocus()
member.Backcolor = &H0&
member.Forecolor = vbWhite
End Sub

Private Sub member_LostFocus()
member.Backcolor = &H404040
member.Forecolor = &HC000&
End Sub

Private Sub opoto_Click()
bersih
Txtpersonal.Enabled = False
txtpelajar.Enabled = False
Txtmember.Enabled = False
txtgame.Enabled = False
txtketik.Enabled = False
TxtInterval.Text = 5
txtintervalpel.Text = 5
TxtIntervalmem.Text = 5
txtintervalgam.Text = 5
TxtIntervalmen.Text = 5

TxtInterval.AddItem "5"
    TxtInterval.AddItem "10"
    TxtInterval.AddItem "15"
    TxtInterval.AddItem "20"
    TxtInterval.AddItem "25"
    TxtInterval.AddItem "30"
    TxtInterval.AddItem "35"
    TxtInterval.AddItem "40"
    TxtInterval.AddItem "45"
    TxtInterval.AddItem "50"
    TxtInterval.AddItem "55"
    TxtInterval.AddItem "60"
    txtintervalpel.AddItem "5"
    txtintervalpel.AddItem "10"
    txtintervalpel.AddItem "15"
    txtintervalpel.AddItem "20"
    txtintervalpel.AddItem "25"
    txtintervalpel.AddItem "30"
    txtintervalpel.AddItem "35"
    txtintervalpel.AddItem "40"
    txtintervalpel.AddItem "45"
    txtintervalpel.AddItem "50"
    txtintervalpel.AddItem "55"
    txtintervalpel.AddItem "60"
    TxtIntervalmem.AddItem "5"
    TxtIntervalmem.AddItem "10"
    TxtIntervalmem.AddItem "15"
    TxtIntervalmem.AddItem "20"
    TxtIntervalmem.AddItem "25"
    TxtIntervalmem.AddItem "30"
    TxtIntervalmem.AddItem "35"
    TxtIntervalmem.AddItem "40"
    TxtIntervalmem.AddItem "45"
    TxtIntervalmem.AddItem "50"
    TxtIntervalmem.AddItem "55"
    TxtIntervalmem.AddItem "60"
    txtintervalgam.AddItem "5"
    txtintervalgam.AddItem "10"
    txtintervalgam.AddItem "15"
    txtintervalgam.AddItem "20"
    txtintervalgam.AddItem "25"
    txtintervalgam.AddItem "30"
    txtintervalgam.AddItem "35"
    txtintervalgam.AddItem "40"
    txtintervalgam.AddItem "45"
    txtintervalgam.AddItem "50"
    txtintervalgam.AddItem "55"
    txtintervalgam.AddItem "60"
    TxtIntervalmen.AddItem "5"
    TxtIntervalmen.AddItem "10"
    TxtIntervalmen.AddItem "15"
    TxtIntervalmen.AddItem "20"
    TxtIntervalmen.AddItem "25"
    TxtIntervalmen.AddItem "30"
    TxtIntervalmen.AddItem "35"
    TxtIntervalmen.AddItem "40"
    TxtIntervalmen.AddItem "45"
    TxtIntervalmen.AddItem "50"
    TxtIntervalmen.AddItem "55"
    TxtIntervalmen.AddItem "60"
TxtInterval.Enabled = True
txtintervalpel.Enabled = True
TxtIntervalmem.Enabled = True
txtintervalgam.Enabled = True
TxtIntervalmen.Enabled = True

lblpersonal.Caption = "Personal/Jam"
lblpelajar.Caption = "Pelajar/Jam"
lblmember.Caption = "Member/Jam"
lblgame.Caption = "Game/jam"
lblketik.Caption = "Ketik/jam"
BLacKFrame1(1).Caption = "Setting Harga Awal Client"
CmdupdateHarga.Enabled = False
cmdSet.Enabled = True
End Sub

Private Sub bersih()
TxtInterval.Clear
txtintervalpel.Clear
TxtIntervalmen.Clear
txtintervalgam.Clear
TxtIntervalmem.Clear
End Sub


Private Sub pelajar_Change()
If chkawal.value = True Then
txtpelajar.Text = Val(pelajar.Text) / 2
End If
End Sub

Private Sub pelajar_GotFocus()
pelajar.Backcolor = &H0&
pelajar.Forecolor = vbWhite
End Sub

Private Sub pelajar_LostFocus()
pelajar.Backcolor = &H404040
pelajar.Forecolor = &HC000&
End Sub

Private Sub Txtalamat1_GotFocus()
Txtalamat1.Backcolor = &H0&
Txtalamat1.Forecolor = vbWhite
End Sub
Private Sub Txtalamat1_LostFocus()
Txtalamat1.Backcolor = &H404040
Txtalamat1.Forecolor = &HC000&
End Sub
Private Sub Txtalamat2_GotFocus()
Txtalamat2.Backcolor = &H0&
Txtalamat2.Forecolor = vbWhite
End Sub
Private Sub Txtalamat2_LostFocus()
Txtalamat2.Backcolor = &H404040
Txtalamat2.Forecolor = &HC000&
End Sub

Private Sub Txtcurrency_GotFocus()
Txtcurrency.Backcolor = &H0&
Txtcurrency.Forecolor = vbWhite
End Sub

Private Sub Txtcurrency_LostFocus()
Txtcurrency.Backcolor = &H404040
Txtcurrency.Forecolor = &HC000&
End Sub

Private Sub Txtharga_Personal_Change()
If chkawal.value = True Then
Txtpersonal.Text = Val(Txtharga_Personal.Text) / 2
End If
End Sub

Private Sub Txtharga_Personal_GotFocus()
Txtharga_Personal.Backcolor = &H0&
Txtharga_Personal.Forecolor = vbWhite
End Sub

Private Sub Txtharga_Personal_LostFocus()
Txtharga_Personal.Backcolor = &H404040
Txtharga_Personal.Forecolor = &HC000&
End Sub



Private Sub Txtnama_warnet_GotFocus()
Txtnama_warnet.Backcolor = &H0&
Txtnama_warnet.Forecolor = vbWhite
End Sub
Private Sub Txtnama_warnet_LostFocus()
Txtnama_warnet.Backcolor = &H404040
Txtnama_warnet.Forecolor = &HC000&
End Sub

Private Sub txtpelajar_GotFocus()
txtpelajar.Backcolor = &H0&
txtpelajar.Forecolor = vbWhite
End Sub

Private Sub txtpelajar_LostFocus()
txtpelajar.Backcolor = &H404040
txtpelajar.Forecolor = &HC000&
End Sub

Private Sub Txtpersonal_GotFocus()
Txtpersonal.Backcolor = &H0&
Txtpersonal.Forecolor = vbWhite
End Sub

Private Sub Txtpersonal_LostFocus()
Txtpersonal.Backcolor = &H404040
Txtpersonal.Forecolor = &HC000&
End Sub

Private Sub txtport_GotFocus()
txtport.Backcolor = &H0&
txtport.Forecolor = vbWhite
End Sub

Private Sub txtport_LostFocus()
txtport.Backcolor = &H404040
txtport.Forecolor = &HC000&
End Sub

Private Sub txtslogan_GotFocus()
txtslogan.Backcolor = &H0&
txtslogan.Forecolor = vbWhite
End Sub

Private Sub txtslogan_LostFocus()
txtslogan.Backcolor = &H404040
txtslogan.Forecolor = &HC000&
End Sub

Private Sub Txtmember_GotFocus()
Txtmember.Backcolor = &H0&
Txtmember.Forecolor = vbWhite
End Sub

Private Sub Txtmember_LostFocus()
Txtmember.Backcolor = &H404040
Txtmember.Forecolor = &HC000&
End Sub
Private Sub txtgame_GotFocus()
txtgame.Backcolor = &H0&
txtgame.Forecolor = vbWhite
End Sub

Private Sub txtgame_LostFocus()
txtgame.Backcolor = &H404040
txtgame.Forecolor = &HC000&
End Sub

Private Sub txtketik_GotFocus()
txtketik.Backcolor = &H0&
txtketik.Forecolor = vbWhite
End Sub

Private Sub txtketik_LostFocus()
txtketik.Backcolor = &H404040
txtketik.Forecolor = &HC000&
End Sub

Private Sub TxtDepositMin_GotFocus()
TxtDepositMin.Backcolor = &H0&
TxtDepositMin.Forecolor = vbWhite
End Sub

Private Sub TxtDepositMin_LostFocus()
TxtDepositMin.Backcolor = &H404040
TxtDepositMin.Forecolor = &HC000&
End Sub

Private Sub txtjedmen_GotFocus()
txtjedmen.Backcolor = &H0&
txtjedmen.Forecolor = vbWhite
End Sub

Private Sub txtjedmen_LostFocus()
txtjedmen.Backcolor = &H404040
txtjedmen.Forecolor = &HC000&
End Sub

Private Sub Txtdisc_GotFocus()
Txtdisc.Backcolor = &H0&
Txtdisc.Forecolor = vbWhite
End Sub

Private Sub Txtdisc_LostFocus()
Txtdisc.Backcolor = &H404040
Txtdisc.Forecolor = &HC000&
End Sub
